home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMIBEST1.ADF / AmigaBasicStuff / BasicGadgets / GdgtEx2 (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-07-22  |  559b  |  20 lines
  1. ' Gadgets Example Number 2
  2. '
  3. LINE(36,28)-(92,42),1,b     ' Draw Gadget
  4. LOCATE 5,7:PRINT"Quit"      ' Insert Text
  5. OK=0                        ' Set Flag=0
  6. WHILE OK=0                  ' Test Flag Each Loop
  7.   WHILE MOUSE(0)=0:WEND     ' Wait for Click
  8.   x=MOUSE(1):y=MOUSE(2)     ' Get x and y Coordinates
  9.   IF x>36 AND x<92 THEN     ' Check x coordinates
  10.     IF y>28 AND y<42 THEN   ' Check y coordinates
  11.       OK=1                  ' Set Flag if in Gadget
  12.     END IF
  13.   END IF
  14. WEND
  15. LOCATE 1,1:PRINT "You did it!"
  16. END
  17.  
  18.  
  19.  
  20.